home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / biz / dbase / AlbIn_MUI_104.lha / Install AlbIn_MUI < prev    next >
Text File  |  1995-05-06  |  3KB  |  149 lines
  1. ; Simple script to install AlbIn_MUI
  2. ; Install_AlbIn_MUI © 1995 Niklas Dahlman, Sirius Design
  3. ;
  4. ; $VER: Install_AlbIn_MUI 1.04 (95.05.03)
  5.  
  6.  
  7.  
  8. (message "\n\n\n\nYou are about to install\n\nAlbIn_MUI\n\nThe ultimate music database.\n")
  9.  
  10. (set installto
  11.    (askchoice
  12.       (prompt "Select the type of disk you\nwant to install to\n")
  13.       (default 0)
  14.       (choices "Hard Disk" "Floppy Disk")
  15.       (help @askchoice-help)
  16.    )
  17. )
  18.  
  19.  
  20. (if (not (exists "AlbIn_MUI.lha"))
  21.    (
  22.    (message "Failure: Did not find AlbIn_MUI.lha" )
  23.    (exit (quiet))
  24.    )
  25. )
  26.  
  27. (set installdest
  28.    (askdir
  29.       (prompt "Into which drawer should\nthe AlbIn_MUI package\n be installed?\nNo drawer will be created!")
  30.       (help @askdir-help)
  31.       (if (= installto 0 )
  32.          (default "Work:")
  33.       )
  34.       (if (= installto 1 )
  35.          (default "DF0:")
  36.       )
  37.    )
  38. )
  39.  
  40. (set endof
  41.    (strlen installdest)
  42. )
  43.  
  44. (set endof (- endof 1))
  45.  
  46. (set lastchar
  47.    (substr installdest endof)
  48. )
  49.  
  50. (if (<> lastchar ":")
  51.     (set idest (cat installdest "/"))
  52.     (set idest installdest)
  53. )
  54.  
  55. (set installdest idest)
  56.  
  57.  
  58. ;*** main stuff, both HD and floppy
  59. ;***
  60.  
  61. (set installfile "AlbIn_MUI.lha")
  62.  
  63. (set lhacommands (cat '"'installfile'"' ' ' '"'installdest'"'))
  64. (set @default-dest installdest)
  65. (working "\n\nExtracting archive: AlbIn_MUI.LhA")
  66. (run "LhA -x x "lhacommands)
  67.  
  68. ;*** HD bonus databaser
  69. ;***
  70.  
  71. (if (= installto 0 )
  72.    (
  73.    (if (not (exists "AlbIn_MUI_DB.lha"))
  74.       (
  75.       (message "Failure: Did not find AlbIn_MUI_DB.lha\n\nExtra databases not installed" )
  76.       (exit "Incomplete intallation completed" )
  77.       )
  78.    )
  79.  
  80.    (set installfile "AlbIn_MUI_DB.lha")
  81.  
  82.    (set lhacommands (cat '"'installfile'"' ' ' '"'installdest'Databases/''"'))
  83.    (set @default-dest installdest)
  84.    (working "\n\nExtracting archive: AlbIn_MUI_DB.LhA")
  85.    (run "LhA -x x "lhacommands)
  86.    )
  87.  
  88. )
  89.  
  90. ;*** om vi installerar till disk
  91. ;*** så installera bonus databaserna på en ny disk
  92.  
  93. (if (= installto 1 )
  94.    (
  95.    (set wanna
  96.       (askbool
  97.          (prompt "\nInstall bonus databases?\n\nIf Yes insert a new formatted disk")
  98.          (help @askchoice-help)
  99.          (default 0)
  100.       )
  101.    )
  102.  
  103.    (if (= wanna 0)
  104.       (exit "Incomplete intallation completed" )
  105.    )
  106.    
  107.    (if (not (exists "AlbIn_MUI_DB.lha"))
  108.       (
  109.       (message "Failure: Did not find AlbIn_MUI_DB.lha\n\nExtra databases not installed" )
  110.       (exit (quiet))
  111.       )
  112.    )
  113.  
  114.    (set installdest
  115.       (askdir
  116.          (prompt "Into which drawer should\nthe extra AlbIn_MUI databases\n be installed?")
  117.          (help @askdir-help)
  118.          (default (cat installdest "Databases"))
  119.       )
  120.    )
  121.  
  122.    (set endof
  123.       (strlen installdest)
  124.    )
  125.  
  126.    (set endof (- endof 1))
  127.  
  128.    (set lastchar
  129.       (substr installdest endof)
  130.    )
  131.  
  132.    (if (<> lastchar ":")
  133.       (set idest (cat installdest "/"))
  134.       (set idest installdest)
  135.    )
  136.  
  137.    (set installdest idest)
  138.  
  139.    (set installfile "AlbIn_MUI_DB.lha")
  140.  
  141.    (set lhacommands (cat '"'installfile'"' ' ' '"'installdest'"'))
  142.    (set @default-dest installdest)
  143.    (run "LhA -x x "lhacommands)
  144.    )
  145. )
  146.  
  147.  
  148. (exit "Operation completed")
  149.